home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / Asymptote Demo / Demo < prev    next >
Encoding:
Text File  |  1994-05-07  |  1.1 KB  |  42 lines  |  [TEXT/DWat]
  1. % A demonstration script for Asymptote
  2.  
  3.  
  4. % ••• To run the demo select:
  5. %     "Run Recorder" 
  6. % from the "Script" menu.
  7.  
  8.  
  9.  
  10. if undefined demoNumber then set demoNumber 1     $
  11.     else if demoNumber 13 = then set demoNumber 1 $
  12.     else set demoNumber demoNumber 1 +
  13.  
  14. % Ask which demo to run
  15. set demoNumber ?Which demo (1 through 13) would you like to see?
  16.  
  17. if demoNumber 1 < demoNumber 13 > * then stop
  18.  
  19. % Run the demo script (\demoNumber inserts the number into the script name)
  20. Demo\demoNumber
  21.  
  22. % Close that script now that we are done with it
  23. close Demo\demoNumber
  24.  
  25. set response true
  26. ask response OK Cancel ?• Click with the command key pressed to zoom in.       $
  27. • Click with command && option pressed to zoom out.                 $
  28. • Click the mouse with no keys pressed when you are done examining the graph.
  29.  
  30. cursor
  31.  
  32. set PrintIt false                % Make false the default choice
  33. ask PrintIt Yes No Do you want to print the graph?
  34. if PrintIt then print        % Print the graph if PrintIt is true
  35.  
  36. fullscreen no
  37.  
  38. set response true
  39. ask response OK Quit ?To try a different demo select Run Recorder from the Script menu.
  40. if response false = then quit
  41.  
  42.